library(stringr)
library(dplyr)

df <- data.frame(
  Card = c("Blue", "Blue", "Pink", "Pink", "Mixed", "Mixed"),
  Side = c("Blue", "Blue", "Pink", "Pink", "Blue", "Pink")
)


cards <- df[sample(6, size = 1000, replace = TRUE), ]

t <- table(cards$Card, cards$Side)

t <- as.data.frame(t)

t
